home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Convert_Nu21679411162009.psc / Convert Numbers / Form1.frm < prev   
Text File  |  2009-11-16  |  15KB  |  494 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Convert Numbers v1.5 (supports very long numbers)"
  5.    ClientHeight    =   6270
  6.    ClientLeft      =   45
  7.    ClientTop       =   435
  8.    ClientWidth     =   6480
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   6270
  12.    ScaleWidth      =   6480
  13.    StartUpPosition =   2  'CenterScreen
  14.    Begin VB.CommandButton cmdSwapNumbers 
  15.       Caption         =   "&Swap Numbers"
  16.       Height          =   285
  17.       Left            =   4980
  18.       TabIndex        =   19
  19.       Top             =   870
  20.       Width           =   1365
  21.    End
  22.    Begin VB.CommandButton cmdSwap 
  23.       Caption         =   "S&wap"
  24.       Height          =   285
  25.       Left            =   2783
  26.       TabIndex        =   18
  27.       Top             =   3000
  28.       Width           =   915
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "&Binary"
  32.       BeginProperty Font 
  33.          Name            =   "Tahoma"
  34.          Size            =   8.25
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   375
  42.       Left            =   563
  43.       TabIndex        =   16
  44.       Top             =   1800
  45.       Width           =   1275
  46.    End
  47.    Begin VB.CommandButton Command2 
  48.       Caption         =   "&Octal"
  49.       BeginProperty Font 
  50.          Name            =   "Tahoma"
  51.          Size            =   8.25
  52.          Charset         =   0
  53.          Weight          =   400
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       Height          =   375
  59.       Left            =   1943
  60.       TabIndex        =   15
  61.       Top             =   1800
  62.       Width           =   1275
  63.    End
  64.    Begin VB.CommandButton Command3 
  65.       Caption         =   "&Decimal"
  66.       BeginProperty Font 
  67.          Name            =   "Tahoma"
  68.          Size            =   8.25
  69.          Charset         =   0
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   375
  76.       Left            =   3293
  77.       TabIndex        =   14
  78.       Top             =   1800
  79.       Width           =   1275
  80.    End
  81.    Begin VB.CommandButton Command4 
  82.       Caption         =   "&Hexadecimal"
  83.       BeginProperty Font 
  84.          Name            =   "Tahoma"
  85.          Size            =   8.25
  86.          Charset         =   0
  87.          Weight          =   400
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       Height          =   375
  93.       Left            =   4643
  94.       TabIndex        =   13
  95.       Top             =   1800
  96.       Width           =   1275
  97.    End
  98.    Begin VB.CommandButton Command5 
  99.       Caption         =   "Hexadecimal"
  100.       BeginProperty Font 
  101.          Name            =   "Tahoma"
  102.          Size            =   8.25
  103.          Charset         =   0
  104.          Weight          =   400
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       Height          =   375
  110.       Left            =   4643
  111.       TabIndex        =   12
  112.       Top             =   3990
  113.       Width           =   1275
  114.    End
  115.    Begin VB.CommandButton Command6 
  116.       Caption         =   "D&ecimal"
  117.       BeginProperty Font 
  118.          Name            =   "Tahoma"
  119.          Size            =   8.25
  120.          Charset         =   0
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       Height          =   375
  127.       Left            =   3293
  128.       TabIndex        =   11
  129.       Top             =   3990
  130.       Width           =   1275
  131.    End
  132.    Begin VB.CommandButton Command7 
  133.       Caption         =   "O&ctal"
  134.       BeginProperty Font 
  135.          Name            =   "Tahoma"
  136.          Size            =   8.25
  137.          Charset         =   0
  138.          Weight          =   400
  139.          Underline       =   0   'False
  140.          Italic          =   0   'False
  141.          Strikethrough   =   0   'False
  142.       EndProperty
  143.       Height          =   375
  144.       Left            =   1943
  145.       TabIndex        =   10
  146.       Top             =   3990
  147.       Width           =   1275
  148.    End
  149.    Begin VB.CommandButton Command8 
  150.       Caption         =   "B&inary"
  151.       BeginProperty Font 
  152.          Name            =   "Tahoma"
  153.          Size            =   8.25
  154.          Charset         =   0
  155.          Weight          =   400
  156.          Underline       =   0   'False
  157.          Italic          =   0   'False
  158.          Strikethrough   =   0   'False
  159.       EndProperty
  160.       Height          =   375
  161.       Left            =   563
  162.       TabIndex        =   9
  163.       Top             =   3990
  164.       Width           =   1275
  165.    End
  166.    Begin VB.TextBox txtResult 
  167.       BeginProperty Font 
  168.          Name            =   "Tahoma"
  169.          Size            =   8.25
  170.          Charset         =   0
  171.          Weight          =   400
  172.          Underline       =   0   'False
  173.          Italic          =   0   'False
  174.          Strikethrough   =   0   'False
  175.       EndProperty
  176.       Height          =   375
  177.       Left            =   120
  178.       TabIndex        =   8
  179.       Top             =   5790
  180.       Width           =   6225
  181.    End
  182.    Begin VB.TextBox txtTo 
  183.       BeginProperty Font 
  184.          Name            =   "Tahoma"
  185.          Size            =   8.25
  186.          Charset         =   0
  187.          Weight          =   400
  188.          Underline       =   0   'False
  189.          Italic          =   0   'False
  190.          Strikethrough   =   0   'False
  191.       EndProperty
  192.       Height          =   285
  193.       Left            =   4485
  194.       TabIndex        =   6
  195.       Text            =   "30"
  196.       Top             =   4470
  197.       Width           =   615
  198.    End
  199.    Begin VB.TextBox txtFrom 
  200.       BeginProperty Font 
  201.          Name            =   "Tahoma"
  202.          Size            =   8.25
  203.          Charset         =   0
  204.          Weight          =   400
  205.          Underline       =   0   'False
  206.          Italic          =   0   'False
  207.          Strikethrough   =   0   'False
  208.       EndProperty
  209.       Height          =   285
  210.       Left            =   4485
  211.       TabIndex        =   2
  212.       Text            =   "16"
  213.       Top             =   2250
  214.       Width           =   615
  215.    End
  216.    Begin VB.CommandButton cmdConvert 
  217.       Caption         =   "Co&nvert"
  218.       BeginProperty Font 
  219.          Name            =   "Tahoma"
  220.          Size            =   8.25
  221.          Charset         =   0
  222.          Weight          =   400
  223.          Underline       =   0   'False
  224.          Italic          =   0   'False
  225.          Strikethrough   =   0   'False
  226.       EndProperty
  227.       Height          =   375
  228.       Left            =   2528
  229.       TabIndex        =   1
  230.       Top             =   5340
  231.       Width           =   1425
  232.    End
  233.    Begin VB.TextBox txtConvert 
  234.       BeginProperty Font 
  235.          Name            =   "Tahoma"
  236.          Size            =   8.25
  237.          Charset         =   0
  238.          Weight          =   400
  239.          Underline       =   0   'False
  240.          Italic          =   0   'False
  241.          Strikethrough   =   0   'False
  242.       EndProperty
  243.       Height          =   375
  244.       Left            =   120
  245.       TabIndex        =   0
  246.       Text            =   "CD333B35AA395EEE22DDDF0F3CDD92E519492BD7D72A615788543A"
  247.       Top             =   390
  248.       Width           =   6225
  249.    End
  250.    Begin VB.Label Label5 
  251.       Alignment       =   2  'Center
  252.       AutoSize        =   -1  'True
  253.       BackStyle       =   0  'Transparent
  254.       Caption         =   "Or choose any number between 2 and 36:"
  255.       BeginProperty Font 
  256.          Name            =   "Tahoma"
  257.          Size            =   8.25
  258.          Charset         =   0
  259.          Weight          =   400
  260.          Underline       =   0   'False
  261.          Italic          =   0   'False
  262.          Strikethrough   =   0   'False
  263.       EndProperty
  264.       Height          =   195
  265.       Left            =   1155
  266.       TabIndex        =   20
  267.       Top             =   4530
  268.       Width           =   3075
  269.    End
  270.    Begin VB.Label Label6 
  271.       AutoSize        =   -1  'True
  272.       BackStyle       =   0  'Transparent
  273.       Caption         =   "Result:"
  274.       BeginProperty Font 
  275.          Name            =   "Tahoma"
  276.          Size            =   8.25
  277.          Charset         =   0
  278.          Weight          =   400
  279.          Underline       =   0   'False
  280.          Italic          =   0   'False
  281.          Strikethrough   =   0   'False
  282.       EndProperty
  283.       Height          =   195
  284.       Left            =   120
  285.       TabIndex        =   17
  286.       Top             =   5520
  287.       Width           =   510
  288.    End
  289.    Begin VB.Label Label2 
  290.       AutoSize        =   -1  'True
  291.       BackStyle       =   0  'Transparent
  292.       Caption         =   "Convert To:"
  293.       BeginProperty Font 
  294.          Name            =   "Tahoma"
  295.          Size            =   8.25
  296.          Charset         =   0
  297.          Weight          =   400
  298.          Underline       =   0   'False
  299.          Italic          =   0   'False
  300.          Strikethrough   =   0   'False
  301.       EndProperty
  302.       Height          =   195
  303.       Left            =   2790
  304.       TabIndex        =   7
  305.       Top             =   3660
  306.       Width           =   870
  307.    End
  308.    Begin VB.Label Label4 
  309.       Alignment       =   1  'Right Justify
  310.       AutoSize        =   -1  'True
  311.       BackStyle       =   0  'Transparent
  312.       Caption         =   "Or choose any number between 2 and 36:"
  313.       BeginProperty Font 
  314.          Name            =   "Tahoma"
  315.          Size            =   8.25
  316.          Charset         =   0
  317.          Weight          =   400
  318.          Underline       =   0   'False
  319.          Italic          =   0   'False
  320.          Strikethrough   =   0   'False
  321.       EndProperty
  322.       Height          =   195
  323.       Left            =   1155
  324.       TabIndex        =   5
  325.       Top             =   2340
  326.       Width           =   3045
  327.    End
  328.    Begin VB.Label Label3 
  329.       AutoSize        =   -1  'True
  330.       BackStyle       =   0  'Transparent
  331.       Caption         =   "Type any number here:"
  332.       BeginProperty Font 
  333.          Name            =   "Tahoma"
  334.          Size            =   8.25
  335.          Charset         =   0
  336.          Weight          =   400
  337.          Underline       =   0   'False
  338.          Italic          =   0   'False
  339.          Strikethrough   =   0   'False
  340.       EndProperty
  341.       Height          =   195
  342.       Left            =   120
  343.       TabIndex        =   4
  344.       Top             =   120
  345.       Width           =   1695
  346.    End
  347.    Begin VB.Label Label1 
  348.       AutoSize        =   -1  'True
  349.       BackStyle       =   0  'Transparent
  350.       Caption         =   "Convert From:"
  351.       BeginProperty Font 
  352.          Name            =   "Tahoma"
  353.          Size            =   8.25
  354.          Charset         =   0
  355.          Weight          =   400
  356.          Underline       =   0   'False
  357.          Italic          =   0   'False
  358.          Strikethrough   =   0   'False
  359.       EndProperty
  360.       Height          =   195
  361.       Left            =   2715
  362.       TabIndex        =   3
  363.       Top             =   1500
  364.       Width           =   1050
  365.    End
  366. End
  367. Attribute VB_Name = "Form1"
  368. Attribute VB_GlobalNameSpace = False
  369. Attribute VB_Creatable = False
  370. Attribute VB_PredeclaredId = True
  371. Attribute VB_Exposed = False
  372. Option Explicit
  373.  
  374. Dim i As Long
  375.  
  376. Private Sub cmdConvert_Click()
  377.     If txtFrom.Text = "" Then
  378.         FlashWindow txtFrom, RGB(255, 64, 64), 3, 250, 250, 600
  379.         txtFrom.SetFocus
  380.     ElseIf IsNumeric(txtFrom) And (txtFrom.Text > 36) Or (txtFrom.Text < 2) Then
  381.         Label4.FontBold = True
  382.         FlashWindow txtFrom, RGB(255, 64, 64), 3, 250, 250, 600
  383.         Label4.FontBold = False
  384.         txtFrom.SetFocus
  385.     ElseIf txtTo.Text = "" Then
  386.         FlashWindow txtTo, RGB(255, 64, 64), 3, 250, 250, 600
  387.         txtTo.SetFocus
  388.     ElseIf IsNumeric(txtTo) And (txtTo.Text > 36) Or (txtTo.Text < 2) Then
  389.         Label5.FontBold = True
  390.         FlashWindow txtTo, RGB(255, 64, 64), 3, 250, 250, 600
  391.         Label5.FontBold = False
  392.         txtFrom.SetFocus
  393.     Else
  394.         If GetMaxNumberSystem(txtConvert.Text) > CDbl(Val(txtFrom.Text)) Then _
  395.             txtFrom.Text = GetMaxNumberSystem(txtConvert.Text)
  396.         txtConvert.Text = Replace(txtConvert.Text, " ", "0")
  397.         txtResult.Text = ConvertNumbers(txtConvert.Text, txtFrom.Text, txtTo.Text)
  398.         
  399.     End If
  400. End Sub
  401.  
  402. Private Sub cmdSwap_Click()
  403.     Dim textFrom As Integer
  404.     textFrom = Val(txtFrom.Text)
  405.     txtFrom.Text = txtTo.Text
  406.     txtTo.Text = textFrom
  407. End Sub
  408.  
  409. Private Sub cmdSwapNumbers_Click()
  410.     Dim textConvert As String
  411.     textConvert = txtConvert.Text
  412.     txtConvert.Text = txtResult.Text
  413.     txtResult.Text = textConvert
  414. End Sub
  415.  
  416. Private Sub Command1_Click()
  417.     txtFrom.Text = 2
  418. End Sub
  419.  
  420. Private Sub Command2_Click()
  421.     txtFrom.Text = 8
  422. End Sub
  423.  
  424. Private Sub Command3_Click()
  425.     txtFrom.Text = 10
  426. End Sub
  427.  
  428. Private Sub Command4_Click()
  429.     txtFrom.Text = 16
  430. End Sub
  431.  
  432. Private Sub Command5_Click()
  433.     txtTo.Text = 16
  434. End Sub
  435.  
  436. Private Sub Command6_Click()
  437.     txtTo.Text = 10
  438. End Sub
  439.  
  440. Private Sub Command7_Click()
  441.     txtTo.Text = 8
  442. End Sub
  443.  
  444. Private Sub Command8_Click()
  445.     txtTo.Text = 2
  446. End Sub
  447.  
  448. Private Sub Form_Load()
  449.     i = 100
  450. End Sub
  451.  
  452. Private Sub Form_Unload(Cancel As Integer)
  453.     End
  454. End Sub
  455.  
  456. Private Sub txtConvert_Change()
  457.     Dim GetNumberSystem As Double
  458.     
  459.     If GetMaxNumberSystem(txtConvert.Text) > CDbl(Val(txtFrom.Text)) Then
  460.         GetNumberSystem = GetMaxNumberSystem(txtConvert.Text)
  461.     Else
  462.         GetNumberSystem = txtFrom.Text
  463.     End If
  464.     
  465.     Dim CheckErr As String
  466. End Sub
  467.  
  468. Private Sub txtConvert_KeyPress(KeyAscii As Integer)
  469.     If ((KeyAscii <> 8) And (KeyAscii <> 32)) And (((KeyAscii < vbKey0) Or (KeyAscii > vbKey9)) And ((KeyAscii < 65) Or (KeyAscii > 90)) And ((KeyAscii < 97) Or (KeyAscii > 122))) Then
  470.         KeyAscii = 0
  471.     End If
  472.     txtConvert_Change
  473. End Sub
  474.  
  475. Private Sub txtFrom_Change()
  476.     txtConvert_Change
  477. End Sub
  478.  
  479. Private Sub txtFrom_KeyPress(KeyAscii As Integer)
  480.     If (KeyAscii <> 8) And ((KeyAscii < vbKey0) Or (KeyAscii > vbKey9)) Then
  481.         KeyAscii = 0
  482.     End If
  483. End Sub
  484.  
  485. Private Sub txtTo_Change()
  486.     txtConvert_Change
  487. End Sub
  488.  
  489. Private Sub txtTo_KeyPress(KeyAscii As Integer)
  490.     If (KeyAscii <> 8) And ((KeyAscii < vbKey0) Or (KeyAscii > vbKey9)) Then
  491.         KeyAscii = 0
  492.     End If
  493. End Sub
  494.